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Set SystemSet = 

GetObject ( "winmgmts : { impersonationLevel=impersonate} ! //MY_PC" ) .Instance 
sOf ( "Win32 jOperatingSystem" ) 

for each System in SystemSet 

WScript.Echo "NETBIOS Name: "& System . CSName 
'WScript.Echo " System. BuildType 

WScript.Echo "Service Pack: " & System. CSDVersion 
WScript.Echo "Last Booted: " & System . LastBootUpTime 
WScript.Echo "Manufacturer: " & System. Manufacturer 
WScript.Echo "0/S Version: " &. System. Version 
WScript.Echo System. Name 

iEqual = InStr (1 , System. Name, "Workstation" , 1) 
If (iEqual <> 0) Then 
MsgBox ( "Workstation" ) 
Else 

MsgBox ("Not a Workstation") 
End if 

next 

Set SystemSet = Nothing 
Set ComputerSet = 

GetObject ("winmgmts: { impersonationLevel=impersonate} J //MY_PC") .Instance 
sOf ( ^ Win32_Share ,, ) 

for each Object in ComputerSet 

WScript.Echo "Share: "& Object, Name 

next 

Set ComputerSet = Nothing 
Set ServiceSet = 

GetObject ("winmgmts: { impersonationLevel= impersonate} J //MY_PC") .Instance 
sOf ( "Win32_ComputerSystemProduct " } 

For each Object in ServiceSet 



'Msgbox system. Caption 
'Msgbox system. Description 
msgbox system. I dent if yingNumber 
'msgbox "Product: " & Object. Name 
msgbox "Manufacturer: " & Object. Name 

'msgbox "Build: " & Obj ect . BuildNumber 



next 



Set ServiceSet = Nothing 
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CodePage:UINT32 

Name:STRING 

QualifierValue:STRING 
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CliAlias 



Connectiorv.OBJECT 
Descriptions:OBJECT 
Formats:OBJECT 
FriendlyName.STRING 
:Key 

Where:STRING 
Qualifiers:OBJECT 
TargetSTRING 
Verbs:OBJECT 
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Derivation:STRING 

Descriptions:OBJECT 

Name:STRING 

Parameters:OBJECT 

Qualifiers:OBJECT 

Standard:BOOLEAN 

Usages:OBJECT 
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DefaultSTRING 

Descriptions:OBJECT 

Optional:BOOLEAN 
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Type:STRING 
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